#Requires AutoHotkey v2.0

; 创建 Excel 应用程序对象
excel := ComObjCreate("Excel.Application")
excel.Visible := false  ; 使 Excel 应用程序不可见

; 检查 Excel 对象是否创建成功
if !excel {
    MsgBox "无法创建 Excel 对象"
    ExitApp
}

; 打开一个现有的 Excel 工作簿
filePath := "test39.xlsx"  ; 请将此路径替换为你自己的文件路径
if !FileExist(filePath) {
    MsgBox "文件不存在: " filePath
    ExitApp
}

workbook := excel.Workbooks.Open(filePath)

; 检查工作簿是否打开成功
if !workbook {
    MsgBox "无法打开工作簿: " filePath
    excel.Quit()
    ExitApp
}

; 获取第一个工作表
sheet := workbook.Sheets(1)

; 检查工作表是否获取成功
if !sheet {
    MsgBox "无法获取工作表"
    workbook.Close()
    excel.Quit()
    ExitApp
}

; 读取 A1 单元格的值
cellValue := sheet.Range("A1").Value
MsgBox "A1 单元格的值是: " cellValue

; 写入新值到 B1 单元格
sheet.Range("B1").Value := "新的值"

; 保存工作簿
workbook.Save()

; 关闭工作簿
workbook.Close()

; 退出 Excel 应用程序
excel.Quit()

; 释放对象
excel := ""
workbook := ""
sheet := ""
MsgBox "Excel 操作已完成"
